home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vegask1a / options.frm < prev    next >
Text File  |  1999-02-28  |  41KB  |  1,176 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form Options 
  4.    AutoRedraw      =   -1  'True
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Keno Settings"
  7.    ClientHeight    =   5070
  8.    ClientLeft      =   2565
  9.    ClientTop       =   1785
  10.    ClientWidth     =   6645
  11.    Icon            =   "Options.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5070
  17.    ScaleWidth      =   6645
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.Frame statsframe 
  20.       BackColor       =   &H00000000&
  21.       Caption         =   "Keno Stats"
  22.       ForeColor       =   &H000000FF&
  23.       Height          =   2670
  24.       Left            =   1260
  25.       TabIndex        =   18
  26.       Top             =   435
  27.       Visible         =   0   'False
  28.       Width           =   5025
  29.       Begin VB.Label credits_won 
  30.          AutoSize        =   -1  'True
  31.          BackStyle       =   0  'Transparent
  32.          Caption         =   "0"
  33.          BeginProperty Font 
  34.             Name            =   "MS Sans Serif"
  35.             Size            =   9.75
  36.             Charset         =   0
  37.             Weight          =   700
  38.             Underline       =   0   'False
  39.             Italic          =   0   'False
  40.             Strikethrough   =   0   'False
  41.          EndProperty
  42.          ForeColor       =   &H000000FF&
  43.          Height          =   240
  44.          Left            =   3870
  45.          TabIndex        =   26
  46.          Top             =   1455
  47.          Width           =   135
  48.       End
  49.       Begin VB.Label Label5 
  50.          Alignment       =   1  'Right Justify
  51.          BackStyle       =   0  'Transparent
  52.          Caption         =   "Total Credits won this game.="
  53.          BeginProperty Font 
  54.             Name            =   "MS Sans Serif"
  55.             Size            =   12
  56.             Charset         =   0
  57.             Weight          =   700
  58.             Underline       =   0   'False
  59.             Italic          =   0   'False
  60.             Strikethrough   =   0   'False
  61.          EndProperty
  62.          ForeColor       =   &H00FFFFFF&
  63.          Height          =   405
  64.          Left            =   -30
  65.          TabIndex        =   25
  66.          Top             =   1410
  67.          Width           =   3840
  68.       End
  69.       Begin VB.Label deals_label 
  70.          AutoSize        =   -1  'True
  71.          BackStyle       =   0  'Transparent
  72.          Caption         =   "0"
  73.          BeginProperty Font 
  74.             Name            =   "MS Sans Serif"
  75.             Size            =   9.75
  76.             Charset         =   0
  77.             Weight          =   700
  78.             Underline       =   0   'False
  79.             Italic          =   0   'False
  80.             Strikethrough   =   0   'False
  81.          EndProperty
  82.          ForeColor       =   &H000000FF&
  83.          Height          =   240
  84.          Left            =   3870
  85.          TabIndex        =   24
  86.          Top             =   2040
  87.          Width           =   135
  88.       End
  89.       Begin VB.Label Label2 
  90.          Alignment       =   1  'Right Justify
  91.          BackStyle       =   0  'Transparent
  92.          Caption         =   "Total Deals.="
  93.          BeginProperty Font 
  94.             Name            =   "MS Sans Serif"
  95.             Size            =   12
  96.             Charset         =   0
  97.             Weight          =   700
  98.             Underline       =   0   'False
  99.             Italic          =   0   'False
  100.             Strikethrough   =   0   'False
  101.          EndProperty
  102.          ForeColor       =   &H00FFFFFF&
  103.          Height          =   270
  104.          Left            =   -30
  105.          TabIndex        =   23
  106.          Top             =   1995
  107.          Width           =   3840
  108.       End
  109.       Begin VB.Label Label6 
  110.          Alignment       =   1  'Right Justify
  111.          BackStyle       =   0  'Transparent
  112.          Caption         =   "Your Return"
  113.          BeginProperty Font 
  114.             Name            =   "MS Sans Serif"
  115.             Size            =   13.5
  116.             Charset         =   0
  117.             Weight          =   700
  118.             Underline       =   0   'False
  119.             Italic          =   0   'False
  120.             Strikethrough   =   0   'False
  121.          EndProperty
  122.          ForeColor       =   &H00FFFFFF&
  123.          Height          =   465
  124.          Left            =   435
  125.          TabIndex        =   22
  126.          Top             =   315
  127.          Width           =   1980
  128.       End
  129.       Begin VB.Label payrate 
  130.          Alignment       =   2  'Center
  131.          AutoSize        =   -1  'True
  132.          BackStyle       =   0  'Transparent
  133.          BeginProperty Font 
  134.             Name            =   "MS Sans Serif"
  135.             Size            =   13.5
  136.             Charset         =   0
  137.             Weight          =   700
  138.             Underline       =   0   'False
  139.             Italic          =   0   'False
  140.             Strikethrough   =   0   'False
  141.          EndProperty
  142.          ForeColor       =   &H00FFFFC0&
  143.          Height          =   360
  144.          Left            =   3120
  145.          TabIndex        =   21
  146.          Top             =   330
  147.          Width           =   135
  148.       End
  149.       Begin VB.Label bet_total 
  150.          AutoSize        =   -1  'True
  151.          BackStyle       =   0  'Transparent
  152.          Caption         =   "0"
  153.          BeginProperty Font 
  154.             Name            =   "MS Sans Serif"
  155.             Size            =   9.75
  156.             Charset         =   0
  157.             Weight          =   700
  158.             Underline       =   0   'False
  159.             Italic          =   0   'False
  160.             Strikethrough   =   0   'False
  161.          EndProperty
  162.          ForeColor       =   &H000000FF&
  163.          Height          =   240
  164.          Left            =   3870
  165.          TabIndex        =   20
  166.          Top             =   870
  167.          Width           =   135
  168.       End
  169.       Begin VB.Label Label4 
  170.          Alignment       =   1  'Right Justify
  171.          BackStyle       =   0  'Transparent
  172.          Caption         =   "Total Bet this game.="
  173.          BeginProperty Font 
  174.             Name            =   "MS Sans Serif"
  175.             Size            =   12
  176.             Charset         =   0
  177.             Weight          =   700
  178.             Underline       =   0   'False
  179.             Italic          =   0   'False
  180.             Strikethrough   =   0   'False
  181.          EndProperty
  182.          ForeColor       =   &H00FFFFFF&
  183.          Height          =   390
  184.          Left            =   195
  185.          TabIndex        =   19
  186.          Top             =   825
  187.          Width           =   3615
  188.       End
  189.    End
  190.    Begin VB.CommandButton moremoney 
  191.       BackColor       =   &H00008000&
  192.       Caption         =   "Get 100 Credits"
  193.       Height          =   375
  194.       Left            =   1935
  195.       Style           =   1  'Graphical
  196.       TabIndex        =   17
  197.       Top             =   4680
  198.       Visible         =   0   'False
  199.       Width           =   1695
  200.    End
  201.    Begin VB.OptionButton pay 
  202.       Caption         =   "4 BET"
  203.       Height          =   375
  204.       Index           =   3
  205.       Left            =   150
  206.       Style           =   1  'Graphical
  207.       TabIndex        =   15
  208.       Top             =   2025
  209.       Visible         =   0   'False
  210.       Width           =   855
  211.    End
  212.    Begin VB.OptionButton pay 
  213.       Caption         =   "3 BET"
  214.       Height          =   375
  215.       Index           =   2
  216.       Left            =   150
  217.       Style           =   1  'Graphical
  218.       TabIndex        =   14
  219.       Top             =   1545
  220.       Visible         =   0   'False
  221.       Width           =   855
  222.    End
  223.    Begin VB.OptionButton pay 
  224.       Caption         =   "2 BET"
  225.       Height          =   375
  226.       Index           =   1
  227.       Left            =   150
  228.       Style           =   1  'Graphical
  229.       TabIndex        =   13
  230.       Top             =   1065
  231.       Visible         =   0   'False
  232.       Width           =   855
  233.